home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00005Series_20.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  1.4 KB  |  50 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   puppetTransition(47, 1, 8)
  4.   put EMPTY into field "bemodnum"
  5.   put EMPTY into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if field "diamodnum" contains "6" then
  9.     if field "mtmodnum" contains "79" then
  10.       put "64" into field "whmodnum"
  11.       put EMPTY into field "bemodnum"
  12.       put ".7" into field "comodnum"
  13.       put EMPTY into field "whexmodnum"
  14.       put EMPTY into field "bearingoption"
  15.       puppetTransition(47, 1, 8)
  16.       play frame "4bbearingc"
  17.       abort()
  18.     else
  19.       play frame "5molruba"
  20.       abort()
  21.     end if
  22.   end if
  23.   if field "diamodnum" contains "8" then
  24.     if field "mtmodnum" contains "79" then
  25.       put "64" into field "whmodnum"
  26.       put EMPTY into field "bemodnum"
  27.       put ".7" into field "comodnum"
  28.       put EMPTY into field "whexmodnum"
  29.       put EMPTY into field "bearingoption"
  30.       puppetTransition(47, 1, 8)
  31.       play frame "4bbearingc"
  32.       abort()
  33.     else
  34.       play frame "5molruba"
  35.       abort()
  36.     end if
  37.   end if
  38.   if field "diamodnum" contains "10" then
  39.     play frame "5molrubb"
  40.     abort()
  41.   end if
  42.   put "64" into field "whmodnum"
  43.   put EMPTY into field "bemodnum"
  44.   put ".7" into field "comodnum"
  45.   put EMPTY into field "whexmodnum"
  46.   put EMPTY into field "bearingoption"
  47.   puppetTransition(47, 1, 8)
  48.   play frame "4bbearingc"
  49. end
  50.